VERSION 5.00
Begin VB.Form frmTest 
   Caption         =   "Insert Responses"
   ClientHeight    =   2220
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   5670
   LinkTopic       =   "Form1"
   ScaleHeight     =   2220
   ScaleWidth      =   5670
   StartUpPosition =   2  'CenterScreen
   Begin VB.CommandButton cmdTestConnect 
      Caption         =   "cmdDbConnect"
      Enabled         =   0   'False
      Height          =   495
      Left            =   120
      TabIndex        =   1
      Top             =   240
      Visible         =   0   'False
      Width           =   372
   End
   Begin VB.CommandButton cmdInsert 
      Caption         =   "Insert Responses"
      Height          =   612
      Left            =   1920
      TabIndex        =   0
      Top             =   600
      Width           =   1572
   End
   Begin VB.Label lblStatus 
      Height          =   495
      Left            =   120
      TabIndex        =   2
      Top             =   1440
      Width           =   5415
   End
End
Attribute VB_Name = "frmTest"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'   Program to
'1) extract data from ascii file
'2) save data to sql server database

Private Sub cmdInsert_Click()
    Dim objTest As clsInsert
    Dim lngSuccess As Long
    
    Set objTest = New clsInsert
    
    lngSuccess = objTest.Insert
    'If lngSuccess < 0 Then
    lblStatus.Caption = lblStatus.Caption & objTest.GetErrorMessage(lngSuccess)
    MsgBox objTest.GetErrorMessage(lngSuccess)
    Set objTest = Nothing
    
    Unload Me
    
End Sub



Private Sub cmdTestConnect_Click()

'    Dim blnTest As Boolean
'    Dim rsTest As ADODB.Recordset
'
'''objAdoConn.ConnectString = "Provider=SQLOLEDB.1;Data Source=MSSC05;User ID=sa;Password=;Initial Catalog=pgiz;Persist Security Info=False"
'
'    If objAdoConn Is Nothing Then
'        MsgBox "damn thing;'s not set"
'        Set objAdoConn = New clsAdoConnection
'    End If
'
'    blnTest = objAdoConn.InitConnect
'    If blnTest Then
'        Set rsTest = objAdoConn.Connection.Execute("Select * from dir_funds")
'        If rsTest.RecordCount > 0 Then
'            MsgBox "Yipee!!"
'        Else
'            MsgBox "Uh-oh"
'        End If
'    Else
'        MsgBox "Couldn't connect"
'    End If
'
End Sub

'1) create  header record
'2) create footer record
'3) retrieve database data
'4) format data
'5) write to file

